home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PROGEDIT / 3458A.ZIP / AMAC44A.ZIP / COM005.QM < prev    next >
Text File  |  1992-06-22  |  4KB  |  124 lines
  1. *                               com005.qm
  2. *               Macros to Append Eol Date Markers '*:dd'
  3. *                        Written By Tom Hogshead
  4. *                       [ See COMTxx.QM For Use ]
  5. *                                 6/22/92
  6. *  Key                         Description                          Bytes
  7. * ===== ==========================================================  =====
  8. *  @1   Insert Eol Date Marker '*:dd', Pause If There ( )             39  |new
  9. *                                                  Like                  *:22
  10. *  @2   Find and Pause to Delete Next Eol Marker                      28  |new
  11. *  @3   Find and Date/Un-date Next Eol Marker                         43  |new
  12. *  @4   Convert Old Eol Markers '*|' to '*;' Markers                  35  |new
  13. *
  14. *    {e:\up\COMT*}  Return To COMTxx.QM
  15. *
  16. *-- eoi
  17.  
  18.  
  19. *                            M A C R O S
  20. * ----------------------------------------------------------------------
  21. * @(1) Insert Eol Date Marker '*:dd', Pause if Anything Already There
  22. *                                                               Like     *:22
  23. * ----------------------------------------------------------------------
  24. * This macro inserts an eol date marker in column 73.  If any text
  25. * exist in col 73+ the macro pauses for the user to confirm insertion
  26. * by hitting <enter>.  An Eol date marker was inserted on the first
  27. * line of this macro on June 14, 1992.
  28.  
  29. *                                                                        vvvv
  30. @1 macrobegin                                                            *:14
  31.         setscreenoff setwordwrapmode togglewordwrap
  32.         insertline insertdate
  33.         wordleft wordleft markword cut
  34.         delline
  35.         begline gotocolumn "74" return
  36.         isendline
  37.     jtrue insert
  38.     confirm:
  39.         markcharacter endline markcharacter
  40.         gotoblockbeg
  41.         setscreenon
  42.         pause
  43.         deltoeol
  44.     insert:                                                              
  45.         '*' ':'
  46.         paste unmarkblock cursordown
  47. *
  48. * 39 bytes Sun  06-14-1992  08:43:53 (TH @1)
  49.  
  50.  
  51. * 
  52. * ----------------------------------------------------------------------
  53. * @(2) Find and Pause to Delete Next Eol Marker
  54. * ----------------------------------------------------------------------
  55. @2 macrobegin
  56.         setscreenoff
  57.         cursorleft
  58.         find '*' ':' return delline return
  59.     jfalse end
  60.         makectrofscreen
  61.         unmarkblock
  62.         markcharacter endline markcharacter
  63.         gotoblockbeg
  64.         setscreenon
  65.         pause
  66.         deltoeol unmarkblock
  67.         repeatfind                                                       *:14
  68.     end:
  69. *
  70. * 27 bytes Sun  06-14-1992  08:44:15 (TH @2)
  71. * 28 bytes Sun  06-14-1992  09:14:20 (TH @2)
  72.  
  73. * 
  74. * ----------------------------------------------------------------------
  75. * @(3) Find and Date/Un-date Next Eol Marker
  76. * ----------------------------------------------------------------------
  77. @3 macrobegin
  78.         setscreenoff
  79.         begline
  80.         find '*' ':' return delline return
  81.     jfalse end
  82.         makectrofscreen
  83.         unmarkblock wordright markword
  84.     jfalse add:
  85.         deleteblock
  86.     jump end:
  87.     add:
  88.         setwordwrapmode togglewordwrap
  89.         insertline insertdate
  90.         wordleft wordleft markword cut delline
  91.         begline repeatfind endline
  92.         paste
  93.         unmarkblock
  94.     end:
  95.         repeatfind
  96. *
  97. * 43 bytes Sun  06-14-1992  08:44:25 (TH @3)
  98.  
  99. * 
  100. * ----------------------------------------------------------------------
  101. * @(4) Convert Old Eol Markers '*|' to '*;' Markers
  102. * ----------------------------------------------------------------------
  103. * This macro will convert old eol markers '*|' in a block in col 75 to
  104. * '*:' in col 73.  If a line block is not marked before invoking,
  105. * either open or closed, the macro pauses for the user to cursor to the
  106. * end of the block and hit <enter>.
  107.  
  108. @4 macrobegin
  109.         gotoblockbeg jtrue MARK
  110.         markline
  111.         gotoblockbeg jtrue MARK
  112.         pause
  113.         markline
  114.     MARK:
  115.         gotoblockbeg
  116.         findreplace '  *' '|' return '*:' return 'L' return
  117.         unmarkblock
  118. *
  119. * 35 bytes Sun  06-14-1992  10:45:23 (TH @4)
  120.  
  121.  
  122.  
  123.  
  124.